home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog40 < prev    next >
Text File  |  1995-06-29  |  467b  |  23 lines
  1. # second "send" test: sending to another application
  2. xtAppInitialize -class Program
  3.  
  4. xmRowColumn .r managed
  5.  
  6. xmPushButton .r.prog40 managed -labelString "Send to prog39"
  7. .r.prog40 activateCallback send39
  8.  
  9. xmPushButton .r.prog40 managed -labelString "Send to prog39Tk"
  10. .r.prog40 activateCallback send39Tk
  11.  
  12. proc send39 {} {
  13.   send prog39 {puts stdout "hi there"}
  14. }
  15.  
  16. proc send39Tk {} {
  17.   send prog39Tk {puts stdout "hi there, Tk program"}
  18. }
  19.  
  20. . realizeWidget
  21.  
  22. . mainLoop
  23.